Imports System.Windows.Forms
Imports System.Text

Public Class dlgAdvanceSave

    Dim encode As New EncodingDataSet.EncodingDataTable


    Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.OK
        Me.Close()
    End Sub

    Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
        Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
        Me.Close()
    End Sub

    Private Sub dlgAdvanceSave_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        encode.Clear()

        encode.AddEncodingRow(Encoding.ASCII.BodyName, Encoding.ASCII.EncodingName, Encoding.ASCII.CodePage)
        encode.AddEncodingRow(Encoding.Default.BodyName, Encoding.Default.EncodingName, Encoding.Default.CodePage)
        encode.AddEncodingRow(Encoding.BigEndianUnicode.BodyName, Encoding.BigEndianUnicode.EncodingName, Encoding.BigEndianUnicode.CodePage)
        encode.AddEncodingRow(Encoding.Unicode.BodyName, Encoding.Unicode.EncodingName, Encoding.Unicode.CodePage)
        encode.AddEncodingRow(Encoding.UTF32.BodyName, Encoding.UTF32.EncodingName, Encoding.UTF32.CodePage)
        encode.AddEncodingRow(Encoding.UTF7.BodyName, Encoding.UTF7.EncodingName, Encoding.UTF7.CodePage)

        encode.DefaultView.Sort = encode.Display_NameColumn.ColumnName
        Me.cmbCode.DataSource = encode.DefaultView
        Me.cmbCode.DisplayMember = encode.Display_NameColumn.ColumnName
        Me.cmbCode.ValueMember = encode.CodePageColumn.ColumnName




    End Sub


End Class
